home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmigaPlus / Begleitmaterial / 50Tools / Grafik / PerfectPaint / rexx / Anim / BuildAnim.rx next >
Text File  |  2003-06-26  |  1KB  |  77 lines
  1. /*     arexx Script V2 */
  2.  
  3.     options results
  4.     parse ARG Port nb file Mode New b
  5.     
  6.     ADDRESS value Port
  7.  
  8.     pp_GetWidth
  9.     W=result
  10.     X=W/2
  11.     pp_GetHeight
  12.     H=result
  13.     Y=H/2
  14.  
  15.     pp_GetCurrentBrush
  16.     B0=result
  17.  
  18.     pp_FindEmptyBrush
  19.     Brush=result
  20.     if Brush=-1 then DO
  21.         pp_Warn "can't*find*empty|Brush."
  22.         ADDRESS COMMAND    'delete >nil: PerfectPaint:Temp/?#.*'
  23.         EXIT        
  24.     END
  25.     pp_SetBrush Brush
  26.  
  27.     IF New=1 then DO
  28.         pp_FindEmptyBuffer
  29.         Bf=result
  30.         if Bf=-1 then DO
  31.             pp_Warn "can't*find*empty|Buffer."
  32.             ADDRESS COMMAND    'delete >nil: PerfectPaint:Temp/?#.*'
  33.             EXIT        
  34.         END
  35.         pp_SetBuffer Bf
  36.     END
  37.  
  38.     pp_AnimGui 1
  39.     IF result<2 then DO
  40.         ADDRESS COMMAND    'delete >nil: PerfectPaint:Temp/?#.*'
  41.         EXIT
  42.     END
  43.  
  44.     IF Mode=0 then DO
  45.         pp_load file||"001"
  46.         pp_MakeAnim nb
  47.     END
  48.     ELSE DO
  49.         pp_New W H 24
  50.         pp_MakeAnim nb    
  51.     END
  52.  
  53.     pp_CountFrames
  54.     nb2=result
  55.  
  56.     DO i=1 to nb2
  57.             j=i
  58.             IF i<1000 then DO
  59.                 j='0'||i
  60.                 IF i<100 then DO
  61.                     j='00'||i
  62.                     IF i<10 then DO
  63.                         j='000'||i
  64.                     END
  65.                 END
  66.             END
  67.         pp_Bload file||j
  68.         pp_plot X Y
  69.         pp_NextFrame
  70.     END
  71.  
  72.     pp_FreeBrush
  73.     pp_SetBrush B0
  74.     ADDRESS COMMAND    'delete >nil: PerfectPaint:Temp/?#.*'
  75.     
  76.     EXIT
  77.